home *** CD-ROM | disk | FTP | other *** search
/ Pulp 2 / Pulp_02_1999_POL_de.d64 / u1B.. y B (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  120 lines
  1. 0 gosub6:dimw$(300):poke53281,0:poke53280,0:poke650,128
  2. 1 fori=0to70:poke211,0:poke214,i:sys58640
  3. 3 print"[147][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  4. 4 poke211,0:poke214,16:sys58640:print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  5. 5 goto10
  6. 6 poke53265,peek(53265)and239:return
  7. 7 poke53265,peek(53265)or16:return
  8. 10 forr=0to90:reada$:w$(r)=a$:next
  9. 11 poke211,0:poke214,17:sys58640:
  10. 12 print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";
  11. 13 print"[213][203][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [202][201]";
  12. 14 print"[194][155]        [176][195][174]  [176][195][195][174] [176][195][174] [195][178][195] [176][195][195][174]        [194]";
  13. 15 print"[194]        [171][195][177][174] [171][195][195][179] [173][195][174]  [194]  [194]    [160]      [194]";
  14. 16 print"[194][155]        [173][195][195][189] [173]  [189] [173][195][189] [195][177][195] [173][195][195][189]        [194]";
  15. 17 print"[202][201][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [213][203]";
  16. 18 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";
  17. 20 x=0:y=-1
  18. 21 fori=1to15:poke211,1:poke214,i:sys58640:print"[154]"w$(x+i):next:gosub7:goto22
  19. 22 geta$:
  20. 23 ifa$=chr$(13)then50
  21. 24 if a$="."andx<90thenx=x+15:goto21
  22. 25 if a$=","andx>0thenx=x-15:goto21
  23. 26 goto22
  24. 50 poke828,0:printchr$(147)chr$(17):print"[144]load"chr$(34)"m1*"chr$(34)",8"
  25. 51 printchr$(17)chr$(17)chr$(17)chr$(17)"run"
  26. 52 poke631,13:poke632,13:poke198,2
  27. 53 printchr$(19);:end
  28. 60 data"                                      "
  29. 61 data"                                      "
  30. 62 data" [213][195][195][195][195][195][195][195][201]      [213][195][195][195][195][195][195][195][195][195][195][201]          "
  31. 63 data" [194]fuckin'[194]      [194]basic ????[194]          "
  32. 64 data" [202][195][195][195][195][195][195][195][203]      [202][195][195][195][195][195][195][195][195][195][195][203]          "
  33. 65 data"                                      "
  34. 66 data"   [213][201]           [213][201]                    "
  35. 67 data"   [202][203]           [202][203]                    "
  36. 68 data"      [213][201]      [213][201]                      "
  37. 69 data"      [202][203]      [202][203]                      "
  38. 70 data"       [168][168][168][168][168][168][168]      easy basic kurs   "
  39. 71 data"       [194] [215] [215] [194]                        "
  40. 72 data"       [217]  @  [212]   written by lost brain"
  41. 73 data"       [188][194][213][195][201][194][190]                        "
  42. 74 data"        [202][168][168][168][203]                         "
  43. 100 data"                                      "
  44. 101 data"  + + + + basic kurs teil ii + + + +  "
  45. 102 data"                                      "
  46. 103 data"nun ist es wieder soweit. diejeniegen "
  47. 104 data"unter euch, die basic noch nicht so   "
  48. 105 data"ganz verstanden haben oder dabei sind,"
  49. 106 data"es zu lernen werden hier mal wieder   "
  50. 107 data"auf ihre kosten kommen. heute widmen  "
  51. 108 data"wir uns den befehlen poke und peek.   "
  52. 109 data"diese dienen uns zum setzen von werten"
  53. 110 data"oder zum auslesen dieser werte aus be-"
  54. 111 data"stimmten speicherzellen.              "
  55. 112 data"                                      "
  56. 113 data"mit dem befehl poke koennen wir werte "
  57. 114 data"zwischen 0 und 255 in speicherzellen  "
  58. 115 data"'poken' also setzen. wofuer die ein-  "
  59. 116 data"zelnen speicherzellen stehen, erfaehrt"
  60. 117 data"man aus handbuechern und informations-"
  61. 118 data"materialien. einige nenne ich waehrend"
  62. 119 data"dieses basic - kurses ! also, durchle-"
  63. 120 data"sen lohnt sich. um sich den befehl    "
  64. 121 data"poke besser vorzustellen, sehen wir   "
  65. 122 data"die speicherzellen als schubfach in   "
  66. 123 data"einem grossen schrank, dem rechner.   "
  67. 124 data"auf jedem fach steht eine zahl, die   "
  68. 125 data"speicherzelle. nun koennen wir dieses "
  69. 126 data"fach oeffnen und einen wert zwischen "
  70. 127 data"0 und 255 'hineintuen. dazu folgender "
  71. 128 data"syntax:                               "
  72. 129 data"poke>>speicherzelle<<,[158]>>wert<<        "
  73. 130 data"eigentlich ist es ganz einfach, und   "
  74. 131 data"duerfte selbst fuer einen anfaenger   "
  75. 132 data"leicht zu verstehen sein! nun folgt   "
  76. 133 data"ein beispiel, welches oefters genutzt "
  77. 134 data"wird, um den rahmen farblich zu ver-  "
  78. 135 data"aendern. hierzu dient die speicherzel-"
  79. 136 data"le 53280. welche pokewerte fuer welche"
  80. 137 data"farbe dienen steht im handbuch. die 15"
  81. 138 data"steht zum beispiel fuer hellgrau. wol-"
  82. 139 data"len wir also einen hellgrauen rahmen  "
  83. 140 data"haben, muessen wir den wert 15 in die "
  84. 141 data"speicherzelle 53280 poken. hierzu fol-"
  85. 142 data"gender syntax: >>[158] poke53280,15 [154]<< !   "
  86. 143 data"weiter nichts! so einfach ist das gan-"
  87. 144 data"ze. nun zu dem befehl peek.           "
  88. 145 data"haben wir zum beispiel einen wert in  "
  89. 146 data"eine speicherzelle gepoked und wollen"
  90. 147 data"diesen spaeter wieder abfragen, so ist"
  91. 148 data"der befehl peek eine riesige hilfe.   "
  92. 149 data"er setzt den wert nicht, sondern fragt"
  93. 150 data"ihn ab. folgender syntax:             "
  94. 151 data"[158]a=peek(>>speicherzelle<<[158])[154] !           "
  95. 152 data"fuer a kann auch jede andere variable "
  96. 153 data"eingesetzt werden. hierzu auch wieder "
  97. 154 data"ein beispiel. uns stellt sich das pro-"
  98. 155 data"blem, dass wir wissen wollen, welche  "
  99. 156 data"farbe unser cursor hat. die entspre-  "
  100. 157 data"chende speicherzelle ist hier 646.    "
  101. 158 data"diese setzen wir einfach in unsere    "
  102. 159 data"formel ein:                           "
  103. 160 data"[158]a=peek(646)                           "
  104. 161 data"in a ist nun der wert der farbe abge- "
  105. 162 data"legt. so ist es moeglich, jede spei-  "
  106. 163 data"cherzelle des c-64 abzufragen !       "
  107. 164 data"gut, dass naechste mal wird es einen  "
  108. 165 data"artikel ueber das umgehen mit for next"
  109. 166 data"schleifen geben. doch bis zur pulp #3 "
  110. 167 data"werde ich ihnen eine aufgabe stellen, "
  111. 168 data"die das wissen aus kurs ii abfragt.   "
  112. 169 data"entwerfen sie ein programm, mit dem   "
  113. 170 data"sie den farbwert des cursors abfra-   "
  114. 171 data"gen und den rahmen in die gleiche far-"
  115. 172 data"be setzen koennen. als variable waeh- "
  116. 173 data"len wir x ! also, beim naechsten mal  "
  117. 174 data"erfahren sie die loesung !            "
  118. 175 data"                            lost brain"
  119. 0 
  120.